home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1239 < prev    next >
Text File  |  1996-10-03  |  514b  |  16 lines
  1. /_ReencodedFontPrefix 128 string dup 0 (_VRT) putinterval def
  2. /findfont {
  3. dup _ReencodedFontPrefix 4 124 getinterval cvs length 4 add _ReencodedFontPrefix 0 3 -1 roll
  4. getinterval cvn exch FontDirectory 2 index known {
  5. pop FontDirectory exch get
  6. }{
  7. //findfont exec dup /Encoding get /Helvetica //findfont exec /Encoding get eq {
  8. dup length dict exch {1 index /FID ne {2 index 3 1 roll put}{pop pop} ifelse}forall
  9. dup /Encoding VirtuosoEncoding put
  10. definefont
  11. }{
  12. exch pop
  13. } ifelse
  14. }ifelse
  15. }bind def